/FILNAM,Planeframe                			! ָ
/TITLE, Progressive collapse analysis	! ָ
/PREP7	! ǰ
*DO,I,1,3	
  ET,I,BEAM161	! 嵥Ԫ
  KEYOPT,I,4,I	! ָֹ
  KEYOPT,I,5,2	! ָΪ
  R,I	! Ԫʵ
  RMORE
  RMORE,,,1,0.3,0.016,0.3+0.1*(I-1)	
  RMORE,0.01
*ENDDO
ET,4,SOLID164	! 嵥Ԫ
MP,EX,1,2.06E8	! 嵯ģ
MP,DENS,1,7.85	! ܶ
MP,NUXY,1,0.3	! 岴ɱ
TB,PLAW,1,,,1	! Plastic Kinematicģ
TBDATA,,345E3,2.06E6,,,,0.01		! Ӧģ
K	! ؼ1
K,,,,3.6	! ؼ2
K,,,100,3.6	! ؼ3㣩
KGEN,4,ALL,,,6	! ƹؼ
*DIM,LINE,,7,3	! LINE
*DIM,TR,,7	! TR
LINE(1,1)=1,4,7,10,2,5,8	LINE1иֵ(ֱ)
LINE(1,2)=2,5,8,11,5,8,11	LINE2иֵ(ֱյ)
LINE(1,3)=3,6,9,12,3,3,3	 LINE3иֵ(ֱ߷)
TR(1)=2,3,3,2,1,1,1	TR鸳ֵ(Ԫͼʵ)
*DO,I,1,7
  L,LINE(I,1),LINE(I,2)	! ֱ
  LATT,1,TR(I),TR(I),,LINE(I,3)	! ֱ߸
  LESIZE,I,,,5	! ָߴ
  LMESH,I	! ֱ߻
*ENDDO
EGEN,6,100,ALL,,,,,,,,,,3.6	! Ʊ׼
LCLEAR,2	! ȥʧЧ
BLOCK,-6,24,-6,6,-0.5	! 
TYPE,4	! ָԪ
ESIZE,3	! ָԪߴ
VMESH,1	! Գ廮
NUMMRG,NODE	! ϲ
EDPART,CREATE	! PART
EDRD,D2R,4	! תΪ
EDCGEN,ASSC	! ԶӴ
EDCONTACT	! 帽ӽӴ